Sample Code - View Object

This sample code shows the use of the View Object. Modify the following sample code to fit your needs.

    Dim repWindow As CRPEAuto.Window
Dim repViews As CRPEAuto.Views
Dim repView As CRPEAuto.View

Private Sub Command1_Click()
'tests View.Close

Set repWindow = repViewObj.Parent
Set repViews = repWindow.Views
Set repView = repViews.GetItem(repViews.Count)
If repViews.Count <> 1 Then
MsgBox "Top view should close but window should remain open"
Else
MsgBox "Window should close - end of Close test"
CloseView.Visible = False
End If
repViewObj.Close

End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com